home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / exampleCode / irix / scripts / rcs / co-script < prev    next >
Encoding:
Text File  |  1994-08-02  |  3.0 KB  |  112 lines
  1. #! /bin/csh -f
  2. #
  3. # $Id: co-script,v 1.6 92/10/27 10:07:58 carlson Exp $
  4. #
  5. # co-script    Performs a co on the file passed and write enables it.
  6. #
  7. #    Added functionality includes:
  8. #    1. Always performs default options $opt.
  9. #    2. Performs options found in environment variable RCSOPTS.
  10. #    3. Passes arguments from command line to co.
  11. #    4. Write enables files checked out if -W option given.
  12. #    5. Performs options found in file .rcsopts.
  13. #
  14. # Revision History:
  15. #    $Log:    co-script,v $
  16. # Revision 1.6  92/10/27  10:07:58  carlson
  17. # When breaking out the options, break out three characters instead of
  18. #   just two to allow checking of just the character following the dash.
  19. # Remove default options that conflict with command line options.
  20. # 
  21. # Revision 1.5  92/01/22  15:21:10  carlson
  22. # No longer set the time of the file to that in the RCS file.
  23. # 
  24. # Revision 1.4  91/08/27  13:24:54  carlson
  25. # Fixed problems with handling new .rcsopts file.
  26. # 
  27. # Revision 1.3  91/08/27  13:11:06  carlson
  28. # Allow new style .rcsopts files.
  29. # Added comments.
  30. # Exit if co doesn't work.
  31. # 
  32. # Revision 1.2  91/07/29  09:00:30  chris
  33. # Cleaned up to use less code.  Doesn't separate option from argument
  34. #   anymore and then put them back together.
  35. # Added RCS symbols.
  36. # 
  37. #------------------------------------------------------------------------
  38. # Set default options for co command here.
  39. #
  40. set opt = ( )
  41. if ( $?RCSOPTS ) then
  42.     set opt = ( $opt $RCSOPTS )
  43. endif
  44. if ( -e ./.rcsopts ) then
  45.     set x = ( `grep "^co[     ]" ./.rcsopts` )
  46.     if ( $#x > 1 ) then
  47.     set opt = ( $opt $x[2-] )
  48.     else
  49.     set x = ( `cat ./.rcsopts` )
  50.     if ( "$x[1]" != "ci" && "$x[1]" != "col" ) then
  51.         echo "*** Old style .rcsopts file ***"
  52.         set opt = ( $opt `cat ./.rcsopts` )
  53.     endif
  54.     endif
  55. endif
  56. set setwrt = 0
  57.  
  58. #----
  59. # Scan for end of options in parameter list.  We need to do this to
  60. # find where the file names start.
  61. #
  62. # While scanning, do the following:
  63. #    1. Remove any duplicated options from $opt.
  64. #    2. Check for -W option and set flag to remind us to write
  65. #       enable the file when we're done.
  66. #
  67. @ first = 1
  68.  
  69. while ( $first <= $#argv )
  70.     set arg_chars = ( `echo $argv[$first] | sed "s/\(.\)\(.\)\(.\)/\1 \2 \3/\\
  71. s/\(.\)\(.\)/\1 \2/"` )
  72.     if ( "$arg_chars[1]" != "-" ) break
  73.     if ( "$arg_chars[2]" == "-" ) then
  74.     set argv[$first]
  75.     break
  76.     endif
  77.     @ secnd = 1
  78.     while ( $secnd <= $#opt )
  79.     set opt_chars = ( `echo $opt[$secnd] | sed "s/\(.\)\(.\)\(.\)/\1 \2 \3/\\
  80. s/\(.\)\(.\)/\1 \2/"` )
  81.     if ( "$opt_chars[1]" != "-" ) break
  82.     if ( "$opt_chars[2]" == "$arg_chars[2]" ) set opt[$secnd]
  83.     if ( "$opt_chars[2]" == "u" && "$arg_chars[2]" == "l" ) \
  84.         set opt[$secnd]
  85.     if ( "$opt_chars[2]" == 'l' && "$arg_chars[2]" == "u" ) \
  86.         set opt[$secnd]
  87.     @ secnd = $secnd + 1
  88.     end
  89.     if ( "$argv[$first]" == "-W" ) then
  90.     set argv[$first]
  91.     set setwrt = 1
  92.     endif
  93.     @ first=$first + 1
  94. end
  95.  
  96. #----
  97. # Check out files with arguments passed.
  98. #
  99. /usr/sbin/co $opt $argv
  100. if ( $status != 0 ) exit $status
  101.  
  102. #----
  103. # Write enable files.
  104. #
  105. if ( $setwrt == 1 ) then
  106.     chmod ug+w $argv[$first-]
  107. endif
  108.  
  109. ### Local Variables:
  110. ### auto-fill-hook: nil
  111. ### End:
  112.